Shareware Grab Bag/Shareware Grab Bag.iso/050/disk_425.arc/JULIAN.LIB

Text File | 1986-06-20 | 384b | 19 lines

function julian(dd,mm,yyyy: integer): integer;
var jm,jy: integer;
begin
  case mm of
    1,2    : begin
        jy:=yyyy-1;
        jm:=mm+13
      end
    else
      begin
          jy:=yyyy;
        jm:=mm
      end;
  julian:=trunc(365.25*jy)+trunc(30.6001*jm)+dd+1720982
end;    { julian }